RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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Scan and translate text into the MRA 16- sep 1984 4 94:43 ‘6h 


XTITLE 8 hy ond translate text into the MRA' 
MODULE SCANT 
IDENT = ‘'V04-000' 
%BLISS32C 
ADDRESSING MODE (EXTERNAL=LONG_RELATIVE ,NONEXTERNAL=LONG_RELATIVE) 
)s 


V4.0-742 Page 1 
: CRUNOFF .SRCJSCANT.BLI;1 (1) 


BEGIN 


OSES SESICLICL OTIS ET ST TT Ter Tere Teer ere i ricci cirri criti ii titi iti tii iiii ty 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
iw ALL RIGHTS RESERVED. 


is we SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH beCENSE AND WITH THE 


= 
m 


iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- eRPORAT | be NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


MIMD 2 SO OS SS SS OOOOOOOCOCO 


FUN O OONOU EWN O ODNAU EWN SOO ONOUS UN“ OVDONOU SW 


® 
t 
® 
* 
® 
* 
® 
* 
* 
! % 
it TRANSFERRED. . 
® 
® 
a 
* 
* 
* 
* 
* 
* 
® 


ESS SE SESE LESSEE CESS TTT TTT TT CT ETT e SC CCT eT e CT CTC cece cece ccc cei tice tii ii iiia 
' 


ie¢ 
! FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


i ABSTRACT: Text scanner and translator, creating the MRA. 


i AUTHOR: R.W.Friday 


! 
i 
i 
' 
i] 
7 | 
ENVIRONMENT: Transportable 
| | 
' 
CREATION DATE: April, 1978 


me a a at ed ed od ws od ss 
— —- 
a 


o 
= 


nd translate text into the MRA 1b-se Sep-1 VAX-11 Bliss- 
Eeeleton History 300-1 3B 93:63 ‘63 DISKSVMSMASTE 
: ‘ Re? ! XSBTTL "Revision History’ 
; 48 4 MODIFIED BY: 
: 50 04 1 / 009 REM00009 Ray Mar hall 17-November=1983 
3 1 50 1! Modified the externa ld tion af Me TABLE to use the new 
: § $2) ! macro ATABLE_DEF INIT ih defined n ATCODE.REQ. 
: 4 8 : 1/ 008 REM00008 Ray Marshall TaWovenber=1785 
; 5 4 1! Added support for case changing within the DEC multinational 
: $ 8 5 ! character set. 
: 58 0 $ 1 i 007 KFA00007 n Alden 15-Mar-1983 
: aR bee 1 For DSRPLUS: Added recognition of an escape sequence 
oc: On 060 1! 006 KAD00006 Keith Dawson 07-Mar-1983 
3 6¢ 061 1! Global edit of all modules. Updated module names, idents, 
: o7 be ! copyright dates. Changed require files to BLISS library. 
: 65 0064 1 i-- 


=742 
FF.SRCJSCANT.BLI;1 


FE 2h 


2 
SCANT Scan and translate text into the MRA 1bese -1984 01:45: VAX-11 BL 
v04-000 Module Level Declarations 1 ~30P 71 38% 93:68:65 DISKSVM 


$ ZSBTTL ‘Module Level Declarations’ 


iss-32 V4.0-742 Page 3 
SMASTER: CRUNOFF..SRCJSCANT.BLI;1 (3) 


EXTERNAL LITERAL 
RINTES : UNSIGNED (8); 


OWN STORAGE: 


8 
9 6 ' 
y ; TABLE OF CONTENTS: 
0 . 
§ 07 FORWARD ROUTINE 
4 07 OUTXSP : NOVALUE; 
5 Bf 
° 7 ! 
8 007 INCLUDE FILES: 
7 . 

0 007 LIBRARY ‘NXPORT:XPORT'; ' XPORT Library 
1 83f REQUIRE ‘REQ:RNODEF'; ! RUNOFF variant definitions 
§ u 0 ZIF DSRPLUS XTHEN 
2 U 8 eg *REQ:DPLLIB'; ! DSRPLUS BLISS Library 
6 0 bigrAny *REQ:DSRLIB'; ! DSR BLISS Library 
7 0 Fl 

0 

0 ! 

0 ! MACROS: 

0 ! 

0 ! 

5 EQUATED SYMBOLS: 

0 . 

0 

6 

0 


EXTERNAL REFERENCES: 


EXTERNAL LITERAL ‘Error messages 
RNFFNA, 


EXTERNAL 
atable : atable_definition, ! Action table. Used to identify what type of 
: action is to be taken on encountering any 
! given character. 


9 ODO UNE WWI 0 OD NAME WIN @ OOD NAME WN HO OONAUS WN (OVO ONOAUE WWI OOOO 
a a a a a a ed 


PONOPOy 2 COOoOCOoCoO OOOO 00 000000 090909 09 00909 NINN INI NINN NOOO 


a a ss a os) 9 9 4 4 4 


SCANT 
V 


: 
2 


a dt ts 
CMF WN -OOONOUS 


POAC 


PWN" OOONOULS wry 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Scan and translate text into the MRA 
-000 Module Level Declarations 


KHA®; 
EXTERNAL ROUTINE 


~ SRCISCANT. BLI: 


Scan and translate text into the MRA 1b-s¢ 4 
Rodule Level Declarations -Sep-1 138 94:38 ‘6s , 


4 
o- 


POO OUUIMVIUIUIUIVIVIVIE BEE EE EEE PW 
WO ODONAOUES WO DONOULS WI OCO 


OWO000 00009090009 090909 090909 INI NII NI NINN NINO OOOO 


QE RRA SOW NOME UI OOo ON OM DOI NOU UMN OOOO denon 


COOoooovno 


Wn— 
oO 


BD 
“ 


SSBSe 


ee ee ee a ee ee a a a ee a ad td ed od 2d = 8 = dS I 


SOOOSOCOSOSOSOCOSOOOCOCOOS COSCO OCOSOSCOSOOOOooOOoOoOOoOoCoOO 
WAAL AAAI APP POPINIPOPIPONPoPoPoNnoNngNny 


WAAAAAI AA. AAA EA 


Roly 1 OOO 


—OOONOUS WN 0 0 


Sep-1 


GLOBAL ROUTINE SCANT : NOVALUE = 
144 


FUNCTIONAL DESCRIPTION: 


FORMAL PARAMETERS: None 


IMPLICIT INPUTS: None 
IMPLICIT OUTPUTS: None 
ROUTINE VALUE: 

COMPLETION CODES: None 


SIDE EFFECTS: None 


BEGIN 
WHILE .FS_LENGTH (IRA) GEQ 0 DO 
BEGIN 


eee ee 


LABEL 
PRESCAN; 


PRESCAN : 
BEGIN 'Start PRESCAN operation 


IF .SCA_PRESCAN 
iif aaa is TRUE, text scanning is stopped by a ';'. 
'Make sure that a <QUOTE flag> is not forcing the character. 
IF .SCA_FLAGS 
AND” .FLGT CQUO_FLAG, FLAG_ ENABLED! 


A aaa EQL .FLGT CQUO_FLAG, FLAG_CHARACTER] 


'<QUOTE flag> fore ing somethin 
'Normal process ing will take Cire of it 
LEAVE PRESCA 
'See if <OVERSTRIKE flag> forces next character 
IF .SCA_FLAGS 


AND™.FLGT COVR_FLAG, FLAG “EMABLED) 


od oe eee EQL .FLGT COVR_FLAG, FLAG_CHARACTER] 


COVERSTRIKE flog fore tng next character. 
'Normal process ie ng w Ll take care of two characters. 
LEAVE PRESCAN; 


«SRCISCANT. BL: 


SCANT 


V 


OOoCooovono 
WN —O0Oono 


LEE 


POPOPINONINONONY 2 O00 
UNO OONOUSWN —OOONOUS WN —O0OM@ 


Winn 


PRaPOPIPOPIPONININIPYNININPINPONIPNPONIPUNINY 
MUSSELS Ww 
-—O wo = SSe ae 


Scan and translate text into the MRA 
Module Level Declarations 


BBB MME BBM BD BBB BB BBE PP PMNS PUNE FANN 


ifosto-19g4 01:45:31 yA 


X=11 Bliss-32_ V4.0-742 Page 6 
SKSVMSMASTER: CRUNOFF ..SRCJSCANT.BLI;1 (4) 
«KHAR EQL %C';' 


nd a. a terminating the scan. 
RETUR 


END; 
END; 'End of PRESCAN operation 
CARE GALS C.KHAR] FROM 1 TO ACTION_COUNT OF 


IF 
THEN 
'Fou 


CA_CONTROL) : 
BEGIN 
IF (.KHAR EQL 0) 'NULL? 
Tener (.KHAR EQL %0'177") !DEL? 
ignore NULL and DEL 
ELSE 
IF .SCA_CC_OK 
OR .SCA_PASS 


RIF DSRPLUS ZTHEN 
xFI 


THEN 
‘Control characters are ok or this is a pass through sequence. 
ENDCHR (.KHAR) 


ELSE 

‘Control characters are not ok. 
BEGIN 
LOCAL 


Y = CHSPTR 
CHSUCHAR t chak + 4C'a", .Y); 
ERM (RN d; 
ERM CRNF LOC: 6,°0); 

END; 
KCNS (); 
END; 


CADIGIT. A_OTHER] : 
ENDCHR (.KHAR); 
KCNS (); 


CA_PUNCT] : 
BEGIN 
‘A punctuation mark, maybe. 
‘ENDCHR (., 
SCA_WRD_L C_PNCT = .SCA_PERIOD AND .SCA_FILL; 
KCNS ()F 


<4 


. 
. 
” 
oe 
. 
. 
. 
e 
. 
e 
. 
. 
. 
e 
. 
° 
7 
a 


SE 


BUS Sa Ne 


ar 


PWN AIAAI AIP 


oo 
oo 


N 2 
Scan and translate text into the MRA 16-Sep-1984 01:45: VAX-11 Bliss-32 V4.0-742 Page 
Module Level Declarations 12=808- 1388 94:68:65 DISKSVMSMASTER:CRUNOFF . SRCJSCANT.BLI: 1" (4 
{8 ; END; : 
1 CA_SPACE) : ; 
§ 4 BEGIN : 
4 IF _ .SCA_FC !Was the previous character a space? ; 
4 & THEN ; 
5 BEGIN 3 
} tWhen filling, multiple spaces get replaced ; 
'by a single space. . 
8 'In .NO FILL mode, all spaces are saved : 
0389 IF NOT .SCA_FILL ; 
90 T s 
91 OUTXSP () Fs 
38 LSE ; 
8 9 'Be sure user didn't say '& ', which : 
94 ‘is an error in .FILL mode when there . 
0395 ‘is a string of spaces in a row ; 
8 38 Hg ene MRD LAC UN 'Underline this space? : 
B85 2 veer did say ‘6 ', which is a problem for him. : 
$200 6 SCA_WRD_AC_UND = FALSE; 'Fix it up. : 
0401 6 ERMS (RNFFRA, .FS_START (IRA), ; 
ot 4 § ; CHSDIFF (.FS_NEXT (IRA), .FS_START (IRA)) = 1); ‘ 
0404 § END ; ; 
405 4 ELSE 'This space terminates a word. ; 
rt 2 ENDWRD (TRUE, .SCA_JUSTIFY, FALSE); : 
Be08 ? KCNS (); 'Get next character. : 
0410 4 IF _.SCA_RSKIPS : 
411 4 THEN 3 
tig 4 RSKIPS (IRA); : 
413 4 3 
414 END; F 
415 ; 3 
oi8 CA_TAB) : 3 
417 4 BEGI 
213 2 4 NOT XTAB () 
0 5 BEGIN ‘Couldn't expand tab, so handle Like a space. 
? 1 IF .SCA_FC ‘Was the previous character a space? 
4 5 ‘when HL ing multiple proses get replaced a single 
r 3 2 ispace. .NO FILL mode, all spaces are saved 
$ 6 IF NOT .SCA_FILL 
8 3 . OUTXSP (); 
0 ; ELSE 
? ? - ENDWRD (TRUE, .SCA_JUSTIFY, FALSE); !This space terminates a word. 
4 . © 
4 : ? KCNS (); 'Get next character 


i Cee eee ii i ei I en ek oak eet eek ok oe ke oo 


See eS Oe He HS Se FS HS HS HS HS OS FS OS HS ES SES HS HS HS FS HS HS HS HS Oe FS FR HS OE Oe FTE FS He FER HEHE TS eS FETS FSFE HS SESS *S HE HCH*EO SE *E*E 


Page 
SBLIS1> 


TER: CRUNOFF .SRCISCANT 


$-32 V4.0-742 


aw 


74 
:0 
'Set case rules 


.SCA_MNWRD_OC_UT; 
.KHAR + .SCA_MNWRD_FC_LT 


KHAR = .KHAR + ,SCA_MNWRD_OC_LT; 


ENDCHR (.KHAR); 


KCNS (); 


~KHAR + 


KHAR = .KHAR + .SCA_WRD_FC_UT 
KHAR = .KHAR + .SCA_WRD_OC_UT; 


ENDCHR (.KHAR); 


KCNS (); 
END; 


KHAR = .KHAR + .SCA_WRD_FC_LT 
KHAR = .KHAR + .SCA_WRD_OC_LT; 


ENDCHR (.KHAR); 


KCNS (); 
END; 


KHAR = .KHAR + .SCA_MNWRD_FC_UT 


SCA_RSKIPS 
SCA_FC_CASE 


KHAR = 


CA_U_LETTER) : 


SCA_FC_CASE = TRUE; 
GIN 
EN 


END; 
IF_.SCA_FC_CASE 


” BE 
F 
H 
ELSE 
_L_LETTER] : 
BEGIN 
THEN 
ELSE 
THEN 
ELSE 
END; 
CA_FLAG] : 


CA 
CAL 
CA 


SII TIMMS TT IO rrr mmm rrr rrr Imm rrr rn 


DP- DRO KUM TN OR DAO — UM TM OR. DRO MUM TN OR. WROK— MUM TMNOR. DHOOM TMNOR ORO WU 
PPM $F FT AT TST ST TTT TANMANAUNUUNUNN OO OOOO 0DOOORAAAAARAR. BR. COONCO CODCOD DO 
-SSSSSESESESOSEECELESSCSl CeCe CeCe OoOeoOoOOSoOSOSSoSoSoEeSSE OSC oo S Sf 
CGOOSOSOSSSOSOSSSSOSSOSSSSSSSSSSSSSSSSSSSSOSOSSOSSSSOSSSSOSSOOSSOSSOSOSoO 


Scan and translate text into the MRA 


Module Level Declarations 


DOK MUM TN OR DRO UM TINOR- DRO — UM TMNOR. OP ORK CUMS OR DHOK— CUM TNOR OPO UMTN 
INARA eA IIIS FF FF FF FF FANON DO OOOO 
Lal eee Alea eal el Ale lela Ales sLAl aL ALA LAL AL ALALALALALALALALALALALALALALALALA 


"See rererera’ ba Na tite tte Rete eee tele ed eh dh ah oh a no a oe oe ee) et ee ed ee ee | 


Scan and translate text into the MRA 
Module Level Declarations 


oO 
= 
wo 
Ww 


PUTMSG (RNFSSR, 0, 0); 
RETURN; 


Sete Sete Ge ee Ge Ge Se Seas 
SN ONIN NINO Om 
CE WN OOOO 
pole lelelelolelalala! 
WIT PN 
oo, DoOOOOoWOO 
«§ COWDNOUS 
—PINAWINE B EW 


Ww 
wr 


MUMIA 
MWEUAnNOO>?rW 
DHAQDAAGD< a 


Cour OPOMMmmmmommnn«n 
NAA SUPT 


Fr 
bal 
bad 


Via 


COOoooooooooooooooooooooooooooooo 
= 
wn 


ee ee ee ee eee epee fee fa lo fe lefolololololelololo) 
ee ww eee ofefololojefelolololololololololololoeloleo) 


OANA Oo 


3 
S$ep-1984 01:45: VAX-11 Bliss-32 V4.0-742 P 
ety 7 04:38:68 DISKSVMSMASTER: CRUNOFF . SRCJSCANT.BLI:1 


!End of SCANT 


RNFSSR, ATABLE, KHAR 
ports, ENDCHR, ENDWRD 


RM, ERMS, FCIMRA 
PUTMSG, RSKIPS, XTAB 

SCODES,NOWRT,2 

SCANT, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
NDWRD, R11 


ENDWRD, 
OUTXSP, R10 


KHAR 
SCA+208, R3 
a4, SP 
IRA+i2 

$ 

SCA+172, 5$ 


aSCA+144, 4$ 
FLGT+12 


»_3$ 
KBAR. FLGT+84 
@SCA+144, 4$ 


9 
(4) 


0265 


Ss Dee oa 
coococe 


Co 
o 


6 
5 
B 
2 
0 
6 
A 
A 
A 


EF 


ViAWw PuUOo WOO 


Scan and translate text into the MRA 
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5 
s 
9C 83 

0121 

6E 

40 +4 

3 

000000006 03 
000000006 af 
: 

i 

01 

98 83 

30 

O0FO 

C4 AS 

98 B83 

3 

‘ 

F4 AS 

FF a 
FA 
000000006 8F 
03 

9A 

Ge § 

1 

F op 

i 

6 

‘Cc 6B 

Fa OA 


~ 
bad 


oOo @ 
“ow 


wee eee jeje ejeloieloleleloloio) 
QOoOOowwwwrr>r>r>r Sr OOOOWm 


OOCQooooooooooooooo 


COOoOQoQoQoooQoooooooooooo 


RMON SP -MS LUD 9 ££ - D990 Wy — — TOO Tv -DI Ow TC 98S M—9 OW wu 
= 
“ 
bad 


COOoQoooooooooooooooooooooooooooo 


WMO O29 O95 MOF 9 HK N99 OO OM SS HMMANOO NO nNONMNOOCCMOOWwWOomM—o--9 
ed dd dod dt I POO OOOO OOCOOOCOOOCOCO 
9 ONL OMD OO FBO SOW OUI DA ES ODOM ONUMNIOC FN MO OVUMNVON PW 


SSSSSSSSSSSSSSSOSOOOOOCOOOOOSOSOOS 
RPI 3 = OOD OOF BA AMMMMMOOVIIGAO 


Liss 
MASTE 


Y 
#64, R2, (Y) 
#1 


i 

#1, ENDCHR 

asCa+104, RO 

RO, @SCA+128, SCA+328 

SCA+148, 14$ 

aSCA+104, 13$ 

#0, OUTXSP 

#1, SCA+200, 15$ 
SCA+200 


#2, 
IRA, IRA+4, RO 


1(RO) 
IRA 
WRNEFNA 
#3, ERM 

15§ 

-(SP) 
asca+100 

#3, ENDWRD 
Rete 

R8, KHAR 

#1, IRA+12 
@IRA+4, KHAR 
IRA+4 


Lael 
SCA+204, 24$ 
IRA 


-32_V4.0-742 
R: CRUNOFF .SRCJSCANT.BLI 
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SCANT Scan and translate text into the MRA 1b-5e 1984 01:45: VAX-11 Bliss-32 V4.0-742 ge oof} 
v04-000 Module Level Declarations 1 ~3ep-19 4 94:63:63 DISKSVMSMASTER: CRUNOFF.SRCIJSCANT. BLI; P79 (4) 
000000006 EF 04 Fe 1 9 CALLS #1, RSKIPS ; 
47 11 001 BRB + 0332 
000000006 FF Q FB 00139 18%: CALLS , XTAB + 0418 
? EB 0014 BLBS : 
09 gs AS £9 0014 BLBC in 19$ + 0421 
F 8 E 14 BLBS cast 4, 20$ : 04 ‘ 
6A FB 00148 CALLS ; ouTx$p : 04 
A 11 0014 BRB 20$ + 0421 
L D4 00150 19$:  CLRL <(SP) + 0431 
94 DD 001 PUSHL a@SCA+100 : 
1 0D 001 PUSHL # : 
6B 3 Fe 1 CALLS #3 FNDURD : 
D5 OO15A 208: TSTL RA+ + 0434 
8 14 0015¢ BGTR : 
64 9A 0015E MOVZBL ie teas g 
65 01 CE 00161 MNEGL RA+12 ; 
09 11 00164 BRB 53g ! : 
64 F8 BS 9A 00166 21$: MOVZBL @IRA+4, KHAR : 
FB OAS D6 O16, INCL  IRA+4 : 
65 07 0016D DECL  IRA+1 : 
OA FC OAS E9 0016 22$:  BLBC SCA+204, 23$ + 0436 
F4 OAS OOF 001 3 PUSHAB IRA + 0439 
000000006 EF 01 FB 00176 CALLS #1, RSKIPS : 
63 01 DO 0017D 23$:  MOVL #1. SCA+208 + 0441 
65 11 00180 24$: BRB 3a§ + 0332 
07 63 E9 00182 5$:  BLBC  S$CA+208, 26$ + 0446 
64 FF40 ¢ CO 0018 ADDL2 SCArT6, KHAR > 0448 
: 11 0018A BRB 33$ ; 
64 FF4B ¢ CO 0018¢ 26$:  ADDL2 SCA+24, KHAR : 0450 
1 11 00191 RB 3 : 0452 
07 63 £9 00193 27$:  BLBC Scat 08, “aes : 0458 
64 FF44 C3 CO 00196 ADDL2 SCA+20, + 0460 
27 11 00198 BRB : 
64 FF4C C3 CO 0019D 28%:  ADDL2 A+28, KHAR + 0462 
20 11 00 1A2 BRB > 0464 
07 63 £9 OO1A4 29$:  BLBC SCA+208, 308 + 0470 
64 FF70 C3 C0 OO1A7 ADDL2 A+64, KHAR + 0472 
18 11 OO1AC BRB : 
64 FF78 C3 CO OO1AE 30$:  ADDL2 A+72, KHAR + 0474 
OF 11 0018 BRB 4 : 0476 
07 63 £9 001B5 31$ BLBC  SCA+208, 32$ + 0482 
64 FF74 C3 CO 001BB ADDL2 A+68, KHAR + 0484 
05 11 00180 BRB : 
64 FF7C }6C3 «CO O01BF a8: ADDL2 SCA+76, KHAR : 04 
6 DD O1c4 $:  PUSHL KHAR > 04 
66 1 FB 1C6 4$: CALLS \ pafDcH ; 
5 p05 001C9 35$: ——*TSTL At + 0489 
é 14 001¢B BGTR : 
64 9a 001C MOVZBL R , KHAR ; 
55 o1 cE 1D MNEGL TRA+12 : 
1D BRB : 
64 F8 BS 9A 001D5 36$: MOVZBL @IRA+4, KHAR : 
FBO D6 1D INCL IRA+4 : 
b 10¢ DECL RA+12 ; 
000000006 EF te 180 7: GALS ¥° DOFLG + 0338 
FE 5 f Sif ane: RW 1 : 


SCANT 
v04-000 


; Routine Size: 


Scan and translate text into the MRA 
Module Level Declarations 


: 
: 
000000006 BF Op Boies eBURML AA SSR 
000000006 EF Bf EB Fe CALLS +a BoiésG 


506 bytes, Routine Base: $CODE$ + 0000 


bosepct9as 01:45:21 YAK] at 


«SRCISCANT.BLI; 


Pesce 


; 0497 


i 


; 0503 


Bete Se Se Se Ge Se Oe HOH Ss Be Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se Se ae See te seas 


3 
SCANT Scan and translate text into the MRA ibese -1984 01:45: VAX-11 Bliss-32 V4.0-742 Page 13 
voa~000 Module Level Declarations 1e-Sep- 382 9S 68:63 DISKSVMSMASTER: RUNOFF. SRCJSCANT.BLI:1~ (33 
; re os } ROUTINE OUTXSP : NOVALUE = ; 
: 380 Og 1 !++ ; 
3 + 0 1 } FUNCTIONAL DESCRIPTION: : 
3 HY 5 1 ! This routine is called in .NO FILL mode, when extra spaces are detected . 
; «6384 1 1 ! between words. It appends them to any other such spaces until either a new : 
: 385 0511 1 ! word is started, or the current output Line is filled. In the latter case, : 
5 HY 8216 ! such extra spaces get dropped. : 
3 34 Baie ! FORMAL PARAMETERS: None 
; 390 0316 1 ! IMPLICIT INPUTS: None 
: 391 Osi, 3 
; 39 B218 1 ! IMPLICIT OUTPUTS: None 
; SY 519 1! 
; 394 0520 1 ! ROUTINE VALUE: 
s 595 0521 1 ! COMPLETION CODES: None 
; 396 05 § 1! 
3 97 05 1 ! SIDE EFFECTS: None 
; 398 0524 1! 
; 399 0525 1 !<- 
; 400 05 § 1 
; $83 B2 BEGIN 
3 thi g2 4 IF CHSDIFFC.FS_NEXT(MRA),.FS_START(MRA)) EQL .TSF_INT_VL! 
: rtd bee, FCIMRA (); ‘Will be first character going into MRA. 
: 407 §a3$ $ ‘Make sure that an extremely . + hae of spaces doesn't cause MRA 
; 408 0534 'to overflow. Stop 10 short so that underlining, bolding, etc can be 
: 409 tte ‘forced out. 
3 ht be § en cere (MRA) = .FS_LENGTH (MRA)) LSS 10 
; 218 $336 BEGIN !Character might not fit in storage 
3; 41 0539 
: 416 0540 EXTERNAL 
3 ai3 bee) IRA : FIXED_STRING; 'needed only for error handling. 
5 “19 Erk: ERM (RNFIBO, .FS_NEXT (IRA), .FS_LENGTH (IRA)); 
; 418 0544 ERM (RNFLOC, 0, 0); 
: 419 0545 ENDWRD (FALSE, FALSE, FALSE); 
+ 420 0546 WHILE .KHAR NEQ RINTES DO ‘Skip to end of input Line. 
: 421 7 KCNS (); 
s 6 4 $8 RETURN 
; 4 54 END; 
> 424 550 
; 425 551 IF .SCA_WRD_AC_UND 
; 4 $ 226 THEN 
3 4 55 BEGIN ‘Forced underlining for this space 
; 428 ee FS_WCHAR (MRA, RIN ES); 
: 429 555 FS"WCHAR (MRA, X%C'U'); 
; 450 228 FS WCHAR (MRA, ZC‘ ‘'); 
> 431 55 SCA_WRD_LST_UND = ,SCA_WRD_LST_UND ¢ 1; 
3 $36 228 SCA_WRD-AC_OND = FALSE; 
; 4 5 END; 
: 434 560 
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v04-000 Module Level Declarations 
>; 435 $} FS coy (MRA, %C" '); 'Put out the actual space. ; 
: 436 ¢ SCK_WRD_LST _SP = .SCA‘WRD_LST_SP + 1; ; 
: 437 6 pdate” ointer to where ext “word Neat start. : 
: 438 564 SCA_WRD_PNTR = fe _NEXT (MRA); ; 
; 439 0565 ND? 'End of OUTXSP : 
OOFC 00000 OUTXSP: .WORD Save R2,R3,R4,R5,R6,R7 : 0504 : 
57 0 G 8F 3A 009 MOVZBL M#RINTES, R? : ; 
: 00000006 EF 9E VAB_ ERM, R6 : ; 
a; gsssssoge er ge Guere=—ROVAB. tat : : 
34 9900000 G EF 9€ 881 MOVAB $CA+200, R3 : ; 
gp oon00% Ee ee anes a Gg 8 fos] 
50 0% AO 60 ¢ 000 C SUBL3 (ROS, 4(RO), RO : ; 
51 000000006 Et dO 00031 MOVL TSF, RI : : 
wim 89 93 poose 9 EE Se ataabte 
000000006 EF 00 FB O05 CALLS #0, FCIMRA 0531 : 
50 64 DO 00045 1$: MOVL ° + 0536 ; 
51 0c AO OA C1 00048 ADDL3 #10, 12(RO), RI : ; 
as 08 to 88 boose cee BIRO), 
62 DD b0088 PUSHL IRA+12 : 0543 ; 
FB Ad DD 00055 PUSHL  IRA+4 : ; 
000000006 8F DD 00058 PUSHL  #RNFIBO : ; 
se 7 5 90061 ctRO”  =(Sp) ; 0544 
oo 200000006 BF Pe 000e8 CAS | fa. ERR ; : 
a a joel 
000000006 03 FB O70 CALLS #3, ENDWRD : : 
: i 0077 2$: CPL KHAR, R7 ; 0546 : 
62 05 0007C¢ TSTL JRA+12 + 0547 : 
Q 14 0007 BGTR 4 : ; 
9A 0080 MOVZBL R7, KHAR : 3 
01 cE 00 MNEGL #1. IRA+12 : ; 
7s 0 BRB 2$° : : 
FB B2 9A 3$: MOVZBL @IRA+4, KHAR : F 
FBO 06 0 C INCL IRA+4 : ; 
62 D F DECL se : ; 
f 11 ; 1 gRB $ 3 g 
1 €1 93 4$: BBC SCA+200, 5$ : 0551 ; 
44 00 0009 MOVL mah RO : 0554 : 
04 A a 9A MOV Mea) R1 ; : 
4 9 MOVB R7, @O(R1) ; : 
hae TRE it ! : 
of 8F 3 A? MOVE tobe a@0(R1) : 0555 : 
61 6 06 AC INCL (RIS : 3 
0c AO 06 OOOAE INCL 12(RO) : : 
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v04-000 Module Level Declarations 1 ety 7 94:63 :08: :§s DISKSVMSMASTER: CRUNOFF.SRCJSCANT.BLI 
00 «BI 29 9 8 MOVB Hi a0(R1) 
D 8 INCL (RIS 
of AQ D B INCL teing) 
008C f 8 BA INCL 55h 40 
A ef BICB2 #2, SCA+200 
: p69 Ci 5$ MOVL MRA, RO 
04 B60 0 C4 MOVB #32, a4(RO) 
04 AO 06 ¢8 INCL  4<RO) 
of ey D6 cB INCL 1ecRO) 
0084 C be 0c INCL SCA+332 
30 =6A3 04 Ad B 00D MOVL 4(RO), SCA+248 
4 00007 6$: RET 
; Routine Size: 216 bytes, Routine Base: $CODE$S + O1FA 
: 440 0566 1 
3; «461 0567 1 END 'End of module 
> 442 0568 0 ELUDOM 
; PSECT SUMMARY 
: Name Bytes Attributes 
; SCODES 722 WNOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
HY Library Statistics 
roe ee Ons we ess ee Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28: :ESYSL 1B2XPORT .L32;1 590 0 : 252 00:00.2 
> 7$255$DUA28: CRUNOFF .SRCJDSRLIB.L32;1 1248 6 Bp 00:00: 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:SCANT/OBJ=OBJ$:SCANT MSRC$:SCANT/UPDATE=(ENH$: SCANT) 
; Size e é 0 data bytes 
: by Time 
: Elapsed Tine: a? a 
; eect Ba Re 2 o: 


— CC — 


fia 


Bete Se Se Ge Se Se Se Ge Se Se & 


53 


a ed a tt st ts a = i 


SCANT 

9544000 
; Memor 
; Compi 


ta 


Scan and translate text into the MRA 
Module Level Declarations 


Used: 168 pages 
tion Complete 


sss 


3 
1d-sep-1984 01:45:21 VAX-11 Bliss-32 V4.0-742 Page 16 


<n 


F3 


ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee eee eee ee ee 


ORATION 
IETARY 


AND PROPR 


Oo 
Oo 
Oo 
oO 
— 
= 
Lil 
= 
a 
ei 
=a 
oa 
Lu 
anal 


ENTIAL 


